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MODULE EXTIDX ( ancunce (818832). 
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BEGIN 
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'@ 

's COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

i: ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED nee A LICENSE AND MAY BE USED AND copie 
'@ ONLY JN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'e COPIES THEREOF = NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'@ 

'e pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

'® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

- CORPORA TION. 

ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1+ 
7 FACILITY: FI1ACP Structure Level 1 
i ABSTRACT: 
This routine extends the volume's index file. 
i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 
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i AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Apr-1977 10:44 
i MODIFIED BY: 


A0101 ACGO121 Andrew C. Soldstein. 16-Jan-1980 23:00 
Make context save and restore into subroutines 


A0100 aceogo Andrew C. Goldstein, 10-Oct-1978 20:02 
Previous revision history moved to FI1A.REV 
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} GLOBAL ROUTINE EXTEND_INDEX (FILE_NUMBER) : NOVALUE = 
: @ 
: FUNCTIONAL DESCRIPTION: 
! This routine extends the volume's index file. 
1 | CALLING SEQUENCE: 
: EXTEND_INDEX (ARG1) 
1 | INPUT PARAMETERS: 
: ARG1: next file number to be created 
§ 1 § IMPLICIT INPUTS: 
: CURRENT_VCB: address of volume VCB 
§ } i OUTPUT PARAMETERS: 
; NONE 
38 1 ' IMPLICIT OUTPUTS: 
38 1/ NONE 
97 1 
MJ 1 | ROUTINE VALUE: 
1! NONE 
00 1! 
4 1 ' SIDE EFFECTS: 
§ : index file extended, index file window and index file FCB modified 
be 
BEGIN 
+3 LOCAL 
FIB : REF BBLOCK, ' address of FIB for gatone operation 
10 HEADER : REF BBLOCK, ! address of index file header 
11 FCB : REF BBLOCK, ' address of index file F 
\§ WINDOW REF BBLOCK, address of index file : ndow 
1 FREE POINTERS, ! number of free cose reves pointers 
14 ! fn index file windo 
+ FILES_TO_GO, : number of [ices l kely to be created 
' on s volume 
1? BLOCKS_NEEDED; ! amount to extend index file by 
i8 EXTERNAL 
0 CLEANUP_FLAGS : BITVECTOR, ' cleanup action flags 
1 USER_STATUS : VECTOR, ' 1/0 status block of user 
5 Seely ee REF tats oe MO Ee 
4 CURRENT-WINDOW : REF BBLOCK. ! address of window in process 
5 _F : BBLOCK; ! FIB for secondary operation 
5 EXTERNAL ROUTINE 
3 SAVE _CONTEXT ' save reentrant context area 
RESTORE CONTEXT. reeter Rig moony context area 
' rea 
1 TURN- “WINDOW. ' update AY window 
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H 10 
16-Sep-1984 01:04: VAX-11 Bliss-32 V4.0-742 e 4 
1 ~300- 138% 93:95:48 DISKSVMSMASTER:CF1IA.SRCJEXTIDX.B32:1 > (2) 
! extend a {ite 
} compute file peoger ehechous 

i 


write back file head 
update file control block 


: Extending the index file is a secondary operation, so we must save away the 
H primary context, and then set up the appropriate context for this operation. 


z 
$ 


Y_FCB = FCB = .CURRENT yeecycest FCBFL; 
TIWINDOW = WINDOW = .FCBCFCBSL_WCFLI; 


Now read the index file header and turn the index file window to VBN 3. 
Then compute the number of free retrieval pointers in the index file window, 
discounting pointers (if any) that only map the boot and home block. 


———-- OV RTHTMH 


HEADER = READ_HEADER (0, .FCB); 
KERNEL_CALL (TURN_WINDOW, .WINDOW, .HEADER, 3, 1); 


FREE POINTERS = Cg pee SI1ZEJ-WCBSC_LENGTH)/ 


6 = ,WINDOWLWCBSW_NMAP); 
IF @iNdow WCBSL_STVBN) + .WINDOWLWCB$W_P1-COUNT) LEQu 3 


BEGIN 

FREE POINTERS = FREE POINTERS + 1; 

IF .@INDOWCWCBSL STVBN] + .WINDOWCWCBSW_P1_COUNT] + .WINDOWCWCBSW_P2_COUNT) LEQU 3 
THEN FREE_POINTERS = .FREE_POINTERS + 1: 


END; 
IF .FREE_POINTERS LEQ 0 THEN FREE_POINTERS = 1; 
Compute the number of files Likely to still be created on the volume. This 
is the minimum of the number permitted minus the current number and a 
fraction of the number of free blocks on the volume. The amount to extend 


Y 
i 
1 
! the index file by is this quent tsy divided by the number of available 
: retrieval pointers in the index file window. 


FILES_TO_GO = MINU (. CURRENT _VCBCVCBSL_MAXFILES) - “FILE NUMBER + 1 
-CURRENT_VCBCVCBSL_FREE) / .CURRENT_VCB VCBSwW_CLUSTER) / 4); 

BLOCKS_NEEDED = MINU (.FILES_TO_GO / .FREE_POINTERS, 1000); 

: Build the extend control in the FIB and call the EXTEND routine. 


FIBCFIBSL_EXS2) = -BLOCKS_NEEDED; 
FIBCFIBSV-ALCON) = 1; 
FIB FIBSV"AL CONG) = |; 
FIBCFIBSV“ALDEF) = 1; 
F IBLF IBSV-NOHDREXT) = 1; 
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EXTEND (.FIB, .HEADER); 

ones write the header, update the FCB, and restore the primary context. 
CHECKSUM fs NEARER) 5 

WRITE _HEAD 

KERNEC_CALL Rinit FCB, .FCB, .HEADER); 


RESTORE CONTEXT QO: 
USER_STATUSL1) = 0; 


END; ! end of routine EXTEND_INDEX 
TITLE EXTIDX 
[IDENT \V04=000\ 
.EXTRN CLEANUP_FLAGS, USER_STATUS 
-EXTRN CURRENT-VC PRIMARY 
-EXTRN CURRENT window SEC 
“EXTRN SAVE_CONTEXT Secor” context 
SEXTRN READ -HEAD URN_WIN 
-EXTRN EXTEND, CH ce UR 
“EXTRN WRITE HEADER, INIT_FCB 


-EXTRN SYSSCAKR 


OOFC 90000 .ENTRY EXTEND_INDEX, Save R2,R3,R4,R5,R6,R7 
57 000000006 9F 9€ 9002 MOV @ASYSSCMKRNL 
oo 5 ogoos oP Sea RAS Ett Sve 
04 AS 0001900 ‘ Bt D 0078 MOVL SECOND. ) 
cooos ff MN BEBE SSRN FERRY ofa 
52 10 A5 00 000 g MOVL  16(FCB), WINDOW 
00006 CF 38 D0 029 MOVE ri * CURRENT _WINDOW 
; D4 , CLRL.  =(SP) 
00006 gf Q FB 000 CALLS 2, READ_HEADER 
6 D0 i ROVE RO, HEADER 
03 DO C PUSHL #3 
0044 8F 6B PUSHR #*M<R2,R6> 
04 DD 4s PUSHL #4 
00006 tf oF 00066 PUSHAB TURN. WINDOW 
Zn gg OS ER ROR EALLS a7. gh sScicem 
oe oa ae oe 
4 16 a3 i¢ 7 MOVZWL 22¢WINDOW), FREE POINTERS 
54 s g a SUBL3 Fate Po PO! INTERS RO, FREE_POINTERS 
oO A F MOVZUL 48(UT ns 
C aoc 63 ADDLe 4 As WINDOW: R 
50 D CMPL 
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2 be gogee FRCL. EREE_POINTERS $046 ; 
36 COA B MOVEUL A CWINDOW) © R2 : 046 : 
C ADDL2 0, Re : : 
A 0007 serku 18" ; 
D6 7A INCL FREE_POINTERS + 0464 : 
4 0 7C 1$ TSTL  FREE-POINTERS ; 0466 : 
3 14 0007 BGTR = 28 ; : 
54 1D MOVL #1, FREE POINTERS : : 
0 00906 CF D 2s MOVL_ CURRENT UCB, R ; 0475 : 
51 4h A 4 At C3 SUBL3 F LE_NUABER, 68(RO), R1 : ; 
5 3¢ Ag Be MOVZWL 60(RO), R2 ; 0476 : 
50 40 A C % DIVL3 R2, 64(RO), RO ; : 
2 4 6 00099 DIVL2 #4, RO : : 
1 0 9C CMPL =6oRI, R : : 
3 4 OF BLEGU = 3$ ; : 
1 0 dD Al MOVL RO, R1 3 : 
0 1 DO OO0A4 38: MOVL, R1, FILES_T : 0475 : 
0 34 C6 QOOAT DIVL2 FREE_P POINTERS. °R0 ; 0478 : 
00000368 &F Q 1 OOOAA CMPL RO, #10 ; : 
1B 00081 BLEGU 4$ ; : 
18 AS — 6 05 S088 4$ MOVE,” BLOCKS NEEDED 24(F 1B) $0483 : 
16 A 0208 BF A 0086 Bisu2 #52 2eCF IB) ; 0487 : 
4 F BB 000C PUSHR #*M<R3_,R6> ; 0489 : 
00006 CF 2 FB 000C6 CALLS #2, EXTEND ; : 
6 DD 000cB PUSHL  HEADE 3; 0494 : 
0006 CF 1 FB 000C CALLS #1, CHECKSUM ; ; 
0006 CF 9 £8 0000 CALLS #0, WRITE HEADER ; 0495 : 
7 7D 0000 MOVa FCB, =(SPY : 0496 ; 
2 DD OOODA PUSHL #2 ; : 
E pb ooon¢ PUSHL SP : ; 
00006 CF 9F 000D PUSHAB INIT FCB ; ; 
67 05 FB OOOE CALLS #5, SYSSCMKRNL ; ; 
00006 CF 0 FB OO0E CALLS #0, RESTORE_CONTEXT ; 0498 ; 
00006 CF 4 OO0EA CLRL _- USER_STATUS#4 ; 0499 ; 
4 OOOEE RET ; 0501 : 
; Routine Size: 239 bytes, Routine Base: $CODES + 0000 : 
; 189 5 1 : 
i 196 8308 | END 
; 191 0504 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes — 
; SCODES 239 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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Library Statistics 


nay a> SYERCLE Socscece Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28:CSYSLIBILIB.L32;1 18619 19 0 1000 00:01.8 

H COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:EXTIDX/OBJ=OBJ$:EXTIDX MSRC$:EXTIDX/UPDATE=(ENH$:EXTIDX) 
Size: 239 goge ¢ 0 data bytes 


; Run Time: : 

3; Elapsed Time: 00:22.6 
3; Lines/CPU Min: 74 

3 Lexemes/CPU-Min: 1444 

: not | Used: 113 pages 
3 a 
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